*Code used to produce F-tests reported in Appendix tables C1 and C2. 


findit frtest 

use "analysis_dataset_study1.dta", clear

encode locNum, gen(profile_num)
encode choiceNum, gen(task_num)

**Study 1 
reg Y_choice i.Poll_Watchers##i.task_num,cluster(resp_id)
margins, predict() at(Poll_Watchers=(1(1)7) task_num=(1(1)6)) post coeflegend
test 1bn._at=2._at=3._at=4._at=5._at=6._at
test 7._at=8._at=9._at=10._at=11._at=12._at
test 13._at=14._at=15._at=16._at=17._at=18._at
test 19._at=20._at=21._at=22._at=23._at=24._at
test 25._at=26._at=27._at=28._at=29._at=30._at
test 31._at=32._at=33._at=34._at=35._at=36._at
test 37._at=38._at=39._at=40._at=41._at=42._at

*Profile 1 vs. Profile 2 
reg Y_choice i.Poll_Watchers##i.profile_num, cluster(resp_id)

margins, predict() at(Poll_Watchers=(1(1)7) profile_num=(1(1)2)) post coeflegend
test 1bn._at=2._at
test 3._at=4._at
test 5._at=6._at
test 7._at=8._at
test 9._at=10._at
test 11._at=12._at
test 13._at=14._at


**Study 2 
use "analysis_dataset_study2.dta", clear
encode locNum, gen(profile_num)
encode choiceNum, gen(task_num)

reg Y_choice i.Poll_Watchers##i.task_num,cluster(resp_id)
margins, predict() at(Poll_Watchers=(1(1)7) task_num=(1(1)5)) post coeflegend
test 1bn._at=2._at=3._at=4._at=5._at
test 6._at=7._at=8._at=9._at=10._at
test 11._at=12._at=13._at=14._at=15._at
test 16._at=17._at=18._at=19._at=20._at
test 21._at=22._at=23._at=24._at=25._at
test 26._at=27._at=28._at=29._at=30._at
test 31._at=32._at=33._at=34._at=35._at


*Profile 1 vs. Profile 2 
reg Y_choice i.Poll_Watchers##i.profile_num, cluster(resp_id)

margins, predict() at(Poll_Watchers=(1(1)7) profile_num=(1(1)2)) post coeflegend
test 1bn._at=2._at
test 3._at=4._at
test 5._at=6._at
test 7._at=8._at
test 9._at=10._at
test 11._at=12._at
test 13._at=14._at


